home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / WRITEINT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-15  |  202b  |  14 lines

  1. PROGRAM WriteInt;
  2.  
  3. VAR
  4.   IntText : Text;
  5.   I,J     : Integer;
  6.  
  7. BEGIN
  8.   Assign(IntText,'INTEGERS.DAT');
  9.   Rewrite(IntText);
  10.   FOR I := 1 TO 25 DO Writeln(IntText,I);
  11.   Close(IntText)
  12. END.
  13.  
  14.